﻿Imports DevComponents.DotNetBar

Public Class ucLapbaocao

    Private Sub ucLapbaocao_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadCbbBaoCao()
    End Sub

    Private Sub LoadCbbBaoCao()
        Dim dict = New Dictionary(Of String, String)()

        dict.Add("nhaphang", "Nhập hàng")
        dict.Add("xuathang", "Xuất hàng")
        dict.Add("thu", "Thu")
        dict.Add("chi", "Chi")
        dict.Add("khachhangdangno", "Khách hàng đang nợ")
        dict.Add("hoadonnhapdangno", "Hoá đơn nhập đang nợ")
        dict.Add("soquytienmat", "Sổ quỷ tiền mặt")
        dict.Add("nhapxuatton", "Nhập - Xuất - Tồn hàng hóa")
        ComboBoxExBaocao.DataSource = New BindingSource(dict, Nothing)
        ComboBoxExBaocao.DisplayMember = "Value"
        ComboBoxExBaocao.ValueMember = "Key"
        ComboBoxExBaocao.SelectedValue = "Key"

        If ComboBoxExBaocao.Items.Count > 0 Then
            ComboBoxExBaocao.SelectedIndex = -1
        End If
    End Sub

    Private Sub ButtonXThoat_Click(sender As Object, e As EventArgs) Handles ButtonXThoat.Click
        Dim uc As New ucLapbaocao
        Me.Controls.Add(uc)
        Dim parent = DirectCast(Application.OpenForms.Item(0), Main)
        parent.CloseModalPanel(uc, DevComponents.DotNetBar.Controls.eSlideSide.Right)
    End Sub

    Private Sub ComboBoxExBaocao_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBoxExBaocao.SelectedIndexChanged
        If ComboBoxExBaocao.SelectedIndex = -1 Then
            LabelXHanghoa.Visible = False
            ComboBoxExHanghoa.Visible = False
            LabelXTungay.Visible = False
            DateTimeInputTungay.Visible = False
            LabelXDenngay.Visible = False
            DateTimeInputDenngay.Visible = False
            LabelXThang.Visible = False
            DateTimeInputThang.Visible = False

            Exit Sub
        End If
        Select Case ComboBoxExBaocao.SelectedValue
            Case "nhaphang", "xuathang", "thu", "chi", "khachhangdangno", "hoadonnhapdangno", "soquytienmat"
                LabelXThang.Visible = False
                DateTimeInputThang.Visible = False
                LabelXHanghoa.Visible = False
                ComboBoxExHanghoa.Visible = False

                LabelXTungay.Visible = True
                DateTimeInputTungay.Visible = True
                LabelXDenngay.Visible = True
                DateTimeInputDenngay.Visible = True
                If ComboBoxExBaocao.SelectedValue = "nhaphang" Or ComboBoxExBaocao.SelectedValue = "xuathang" Then
                    LabelXHanghoa.Visible = True
                    ComboBoxExHanghoa.Visible = True
                End If
            Case "nhapxuatton"
                LabelXHanghoa.Visible = False
                ComboBoxExHanghoa.Visible = False
                LabelXTungay.Visible = False
                DateTimeInputTungay.Visible = False
                LabelXDenngay.Visible = False
                DateTimeInputDenngay.Visible = False

                LabelXThang.Visible = True
                DateTimeInputThang.Visible = True
        End Select
    End Sub

End Class
